BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Bus/T-Z/Teleprint 1.0.cpt/TelePrint Express™ 1.0/background_6716.xml

Extensible Markup Language | 1992-01-28 | 16KB | 426 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>6716</id>
    <filler1>0</filler1>
    <bitmap>BMAP_7033.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_33153.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>9</left>
            <top>45</top>
            <right>228</right>
            <bottom>119</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>BillTo</name>
        <script></script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>100</left>
            <top>299</top>
            <right>139</right>
            <bottom>338</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>133</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Cancel Order</name>
        <script>on mouseUpdoMenu "Quit HyperCard"end mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>55</left>
            <top>297</top>
            <right>95</right>
            <bottom>339</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>130</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Accept Order</name>
        <script>on mouseUpglobal overdogglobal orderstatusglobal Totalglobal ShirtSizeput empty into ShirtSizeif field "Items" is empty then-- send mouseup to bkgnd button "Cancel Order"answer "There is no order to accept.  "¬&"Click 'Catalog' to add some items or"¬&&"click 'Cancel Order' if you do not wish to order at this time."exit mouseUpend ifanswer "Print a copy of this order form for your records?"¬with "No" or "Yes"if it is "Yes" then doMenu "Print Card"answer "Send this order to TelePrint systems for processing?"¬with "No" or "Yes"if it is not "Yes" thenexit mouseUpelse if it is "Yes" thenif Total > 99.99 thenanswer "Would you like a free TelePrint™ T-Shirt?" with "No" or "Yes"if it is "Yes" thenanswer "Please choose a shirt size" with "Medium" or "Large" or "XLarge"put it into ShirtSizeend ifend ifend ifput "Accepted" into orderstatussend goNext to this stackend mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>266</left>
            <top>45</top>
            <right>485</right>
            <bottom>119</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>ShipTo</name>
        <script></script>
    </part>
    <part>
        <id>22</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>9</left>
            <top>131</top>
            <right>501</right>
            <bottom>266</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Items</name>
        <script>on mouseDownget clickLine()if line it of me is not empty thenselect line it of meelseselect emptyend ifend mouseDownon mouseStillDownget clickLine()if line it of me is not empty thenselect line it of meelseselect emptyend ifend mouseStillDownon mouseUpglobal ItemsSaveglobal Itemsput Items into ItemsSaveselect emptyput clickLine() into whichLineif line whichLine of Items is not empty thenput word 1 of line whichLine of Items into temp1put word 2 of line whichLine of Items into temp2if temp2 is "-" thenanswer "Delete this item from order?" with "Delete" or "Cancel"if it is "Delete" thendelete line whichline of ItemscalcTotalend ifexit mouseUpelseanswer "Delete this item, or modify it?"¬with "Delete" or "Modify" or "Cancel"if it is "Cancel" thenexit mouseUpelse if it is "Delete" thenset cursor to busydelete line whichLine of ItemscalcTotalKillItem temp2 -- deletes from ItemsDetailopenCardexit mouseUpend ifend ifset cursor to busydelete line whichLine of ItemscalcTotalset cursor to busyoldItem temp1, temp2global XTemplif XTempl is -1 thenexit MouseUpend ifpush cardeditItemend ifend mouseUp--function clickLine returns the line of the target field--over which the mouse was clicked.  It allows 4 pixels under the--baseline for the psychological effect of descenders.function clickLineif the mouseLoc is within the rect of the target thenreturn ((the mouseV - the top of the target +¬the scroll of the target)¬div the textheight of the target) + 1else return 0end clickLine</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>9</left>
            <top>299</top>
            <right>48</right>
            <bottom>338</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>129</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Catalog</name>
        <script>on mouseUpgoNextend mouseUp</script>
    </part>
    <part>
        <id>24</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>15</left>
            <top>313</top>
            <right>106</right>
            <bottom>335</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Delete Item</name>
        <script>on mouseUpglobal whichLineif whichLine is not empty thensubtract char 70 to 80 of line whichLine of field "Items"¬from field "subtotal"calctotaldelete line whichLine of field "Items"get line whichLine of field "Items"if it is empty thenif whichLine > 1 thensubtract 1 from whichLineselect line whichLine of field "Items"elseput empty into whichLineend ifelseselect line whichLine of field "Items"end ifend ifend mouseUp</script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>423</left>
            <top>317</top>
            <right>485</right>
            <bottom>331</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Total</name>
        <script></script>
    </part>
    <part>
        <id>37</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>423</left>
            <top>304</top>
            <right>485</right>
            <bottom>318</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>P&H</name>
        <script></script>
    </part>
    <part>
        <id>39</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>423</left>
            <top>291</top>
            <right>485</right>
            <bottom>305</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Tax</name>
        <script></script>
    </part>
    <part>
        <id>40</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>423</left>
            <top>278</top>
            <right>485</right>
            <bottom>292</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>SubTotal</name>
        <script></script>
    </part>
    <part>
        <id>42</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>318</left>
            <top>291</top>
            <right>424</right>
            <bottom>305</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>TaxRate</name>
        <script></script>
    </part>
    <part>
        <id>44</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>423</left>
            <top>265</top>
            <right>485</right>
            <bottom>279</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Discount</name>
        <script></script>
    </part>
    <name>Order Main</name>
    <script>on goNextglobal MainNum,DetailNum,NATemppush cardvisual wipe upgo to bg "Catalog"end goNexton openCardglobal BillToglobal ShipToglobal Itemsglobal Subtotalglobal Discountglobal Taxglobal PHglobal Totalcalctotalput BillTo into field "BillTo"put ShipTo into field "ShipTo"put Items into field "Items"put Subtotal into field "Subtotal"put Discount into field "Discount"put Tax into field "Tax"put PH into field "P&H"put Total into field "Total"fixscrollpass opencardend openCardon fixscrollget the number of lines in field "Items"multiply it by the textHeight of field "Items"subtract the height of field "Items" from itadd 2 to itif it < 0 then get 0set the scroll of field "Items" to itend fixscrollon returnKeyglobal overdogif overdog then pass returnKeyclick at the loc of bg button id 23end returnKeyon enterKeyglobal overdogif overdog then pass enterKeyclick at the loc of bg button id 23end enterKeyon idleget the selectedTextif it is not empty thensend mouseUp to field "Items"end ifpass idleend idleon closeCardglobal BillToglobal ShipToglobal Itemsglobal SubTotalglobal Taxglobal PHglobal Totalput empty into field "BillTo"put empty into field "ShipTo"put empty into field "Items"put empty into field "Discount"put empty into field "SubTotal"put empty into field "Tax"put empty into field "P&H"put empty into field "Total"end closeCard</script>
</background>